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T a b 1 e o f c o n ten t h 

rrrEMT Real-time eitit entry po:ii)t 

RTCVA5) - Convert virtual address to physical addroBB 

Rl VHAF — Map virtual address to physical region 

RfFRE>; - Lock job in memory without reposi t ioninri 

RTUNLK - Unlock job from memory 

RiPEEK • — P{5Gk at 1/0 page 

RTPDKF ■-- Poke into I/O page 

RfBIS — ■ Bit set into I/O pape 

RTBIC •— Bit clear into I/O page 

RTIOMP --" Hap par? to I/O page 

RTRMMP ~- Map par? to simulated Rmon 

. SPWD -- Suspend job's execution 

. RSUM - Resume job's execution 

RTCHPL - Schedule a completion routine 

FrfEXJB •— • C-ain exclusive use of system 

R'! ALJB - — Release e?xclusive access claim to system 

RTSF'L Set processor priority level 

RTCVEC ~ Connect completion routine to interrupt vector 

RTRVEC -■" Release interrupt vettoT- 

RTDEV -~ . DEVICE Fmt 

RT5T0P ~— Real-time cleanup at emi of job executiors 

>!• ii'- S u s ■ r { '• u t i n e s «• « 

PRVRT ■- Determine if job has real-time privileqe 

PRVriEi''! Check for access authorization to phys memory 

WRCV'E-IC - Search for vector control block 
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IITLE TSRTX 
ENABL LC 
DSABL QBL 



Won -resident Real-Time Support Module 



TSsRTX is the non-resident portion of the TSX-Plus real-time support 

c o (i e . 

Copyright < c ) 1 980, 1 98 1 , 1 992, 1 933, 1 984 , 1 985. 

SS<H Computer Systems, Inc. Nashville, Tennessee 

All rights reserved. 



. CSECT TSRTX 
. RAD50 /RTX/ 



Overlay id 



TSRTX: 

Macro definitions 

Macro to call a routine in another system overlay region. 

. MACRO OCALL I- Ml ADD 

. IF B, ENTAPD 

.ERROR .; OCALL mithout entry address 

. ENDC 

CALL OVRHC 

. WORD ENTADD 

. EMDM OCALL 

Olobal definitions 

. GLOBL RTSPND, RTRBUM 

. OLOBL RTSTOP, RTDEV, RTEMT 

Olobal references 

. GLOBE LSW2, SETERR, EMTBLK, BADEMT, LPARBS, EMTXIT 

. GLOBE *IOMAP, LSW6, SETMAP, VC*JOB, VC*VEC. VC*RTN 

. GLOBE UEXINT, CQ*vlOB, CQ*RO, CQ*RTN, QCOMPL 

. GLOBE URO, VCt'PRI, EMTPS, INTPRI, RTLOCK 

. GLOBE S*TWFN, LBSPRI, *MLOCK, PO*LOK 

. GLOBE OVRHC, UEXRTM, VDXIFL 

. GLOBE VCBBAS, VCBEND, VC**SZ, PO*MEM, PO*RT, PRIVCO 

. GLOBE LSPN.D, CURCP> SliSPND, CHKABT 

. GLOBE GHDSPM, DEVLL, DEVLS, CQ$PR I , CQ*PA5, CQ*RNS 

. GLOBE DOSCHD, EXCJOB, CIMPLG 

. GLOBE RPAR, RPDR, VE'?5DIR, VC*FLG, VF*DET 

. GLOBE UPARO, UPDRO, CUPARO, CUPDRO 

. GLOBE UPMODE, UPMO.l>E, KPAR5, CQ*CP, CP*STD, CP*RT 

. GLOBE CUPARO, CUPDRO, CQ*Ri 

. GLOBL GETQ, CORUSR, MAXPRl, S$RT, VPRIHI 



€ 

I 



MACROS TO ENABLE AND DISABLE INTERRUPTS. 



PS 



1 77776 
. MACRO DISABL 
BIS #340, e#ps 
. EMDM DISABL 



:. PROCESSOR STATUS WORD 
.: DISABLE INTERRUPTS 
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58 . MACRO ENABL ; ENABLE INTERRUPTS 

59 iilC INTPRl, €^il'!:> 



K/: 



60 . UNDh ENABL 
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RTEMT -- Rea.i-t:j me emt entry point 



. SDTTL RTEMT 



Rf-al -time emt entry point 



3 



5 




6 




7 




8 




9 




JO 
J. ,1 




12 




13 




14 




IS 




16 




17 000002 




18 




19 




20 




21 000002 


116705 0000000 


22 000006 


00630i} 


23 000010 


020527 000042 


24 000014 


1 1 4012 


25 000016 


000167 0000000 


26 000022 


000175 000026' 


27 




28 




29 




30 




31 000026 


000072 ■' 


32 000030 


000456 •' 


33 000032 


000472 ■' 


34 000034 


000506 ■' 


35 000036 


000522 ' 


36 000040 


000540 ■' 


37 000042 


000560 ' 


38 000044 


0000000 


39 000046 


000444 ■•■ 


40 000050 


00114''! •" 


41 000052 


001274-' 


42 000054 


000420 •' 


43 000056 


001024' 


44 000060 


00 1 040 ' 


45 000062 


001054' 


46 000064 


000172' 


47 000066 


00 1 1 1 2 ' 


43 000070 


000660 ' 


49 




50 


000042 



RTliWT is jumped to from fShMT whenever one of the real-time emt's 

is e :< e c u t e (i . 

The cjenerai form of a real-time emt is 

. BYTE Bub-functjon, 140 

. WORD Ar g 1 j < up t i ona 1 ) 

. WORD Ar g 2 ; ( u p t i ona 1 ) 

. WORD Ar g 3 ; ( t* p t i ona 1 ) 

Where sub-function is a code that indicates which real-time 
function is to be performed. <See vector at end of this routine) 

See if user is authorized to use real --time emt's. 

RTEMT : 

Oet Bub -function code from arg block and jump to processing routine 



I'f : 



?*: 



MOVB 

ASL 

CMP 

BLOS 

vlMP 

sJMP 



EMTBLK, RT/ 

R5 

R5, #MXRTFM 

2* 

BADEMT 

@RTEMTV(R5) 



GET SUB-FUNCTION CODE 

CONVERT TO WORD TABLE INDEX 

IS IT VALID SUB-FUNCTION CODE? 

BR IF OK 

INVALID SUB-FUNCTION VALUE 

JUMP TO PROCESSING ROUTINE FOR EMT 



Define sub-function jump vector. 



RTEMTV: , WORD RTCVAD 

. WORD RTPEEK 

. WORD RTPOKE 

. WORD RTBIS 

.WORD RTBIC 

. WORD RTIOMP 

. WORD RTRMMP 

. WORD RTLOCK 

. WORD RTUNLK 

. WORD RTCVEC 

. WORD RTRVEC 

. WORD RTFRE2 

. WORD RTEXJB 

. WORD RTALJB 

. WORD RTSPL 

. WORD RTVMAP 

. WORD RTDVEC 

. WORD RTCMPL 

i-IXR TFN := . -RTEMTV-2 



virtual address to physical 

I/O page 

D I/O page 

into I/O page 

r into I/O page 

ual PAR6 to I/O page 

ual PAR6 to simulated RMON 

in low memory 
ob from memory 

completion routine to interrupt 
ct completion rtn from interrupt 

in memory without repositioning 
lusive use of system 
exclusive use of system 
essor priority level level 
ual region to physical region 
direct interrupt service routine 

completion routine 



■«• Highest legal subfunction number 



; 00 


- Convert 


; 01 


- Peek at 


i 02 


- Poke i n t 


i03 


- Bit set 


; 04 


- Bit c 1 ea 


;05 


- Map virt 


; 06 


- Map virt 


i07 


■~ Lock job 


i 10 


- Unlock J 


> 11 


- Connect 


; 12 


- Disconne 


J 13 


- Lock job 


i 14 


- Gain exc 


i 15 


- Release 


i 16 


- Set proc 


; 17 


- Map virt 


; 20 


- Connect 


i2l 


- Schedule 


■> 2 ■« 


Highest 1 
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RTCVAD — Convert virtual address to physical address 



? 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


000072 


016700 


0000020 


16 


000076 


0.1.0003 




17 


000100 


005002 




18 


000102 


073227 


000003 


19 


000106 


006302 




20 


000110 


005762 


OOOOOOG 


21 


000114 


001405 




22 


000116 


016205 


0000000 


23 


000122 


042700 


1 60000 


24 


000126 


000402 




23 


000130 


016105 


0000000 


26 


000134 


005004 




27 


000136 


073427 


000006 


28 


000142 


060005 




29 


000144 


005504 




30 


000146 


072427 


000004 


31 


000152 


016703 


0000040 


32 


000156 


010546 




33 


000160 


106623 




34 


000162 


010446 




35 


000164 


106613 




36 


000 1 66 


000167 


OOOOOOG 



SBTTL. RTCVAD 



Convert virtual address to physical address 



The RTCVAD emt is used to convert a 16-bit virtual address to a 
22--bit physical addresB. 

I n p u t s : 
Argl = Virtual addr€?f'S. 
Arc!2 = Address of 2-u.tord block to receive 22-bit address result 

Outputs: 
Result buffer in user's arsB receives 22-bit physical address 
low-order 16-bit5 stored in Ist word and high-order 2-bits positioned 

in bit positions 4-5 are stored in 2nd word. 

GET VIRTUAL ADDRESS 

SET UP FOR SHIFT 

GET 3 HIGH-ORDER BITS OF VIRTUAL ADDRESS 

»2 TO CONVERT TO WORD TABLE INDEX 

IS THIS REGION SPECIALLY MAPPED? 

BR IF NOT 

GET PHYSICAL ADDRESS FOR THIS PAR 

REMOVE PAR # FROM VIRTUAL ADDRESS 

GET BASE 64-BYTE BLOCK NUMBER OF JOB REGION 

CLEAR HIGH-ORDER WORD 

CONVERT TO 22-BIT PHYSICAL ADDR OF JOB BASE 

ADD VIRTUAL ADDRESS 

PROROGATE CARRY 

PUT 2 HIGH-ORDER BITS IN BIT POSITIONS 4-5 

GET ADDRESS OF BUFFER WHERE RESULT GOES 

STACK LOW-ORDER PART OF RESULT 

STORE INTO USER'S BUFFER 

STACK HIGH-ORDER PART OF RESULT 

STORE INTO USER'S BUFFER 

FINISHED 



RTCVAD: 


MOV 


EMTBLK+2, RO i 




MOV 


RO.. R3 




CLR 


R2 i 




ASHC 


#3, R2 ; 




ASL 


R2 ; 




TST 


RPDR(R2) i 




BEQ 


1* ; 




MOV 


RPAR(R2),R5 > 




BIC 


#160000, RO ; 




BR 


2* 


1*: 


MOV 


LPARBS(R1),R5 > 


2$: 


CLR 


R4 > 




ASHC 


#6. R4 ; 




ADD 


RO. R5 i 




ADC 


R4 i 




ASH 


#4, R4 ; 




MOV 


EMTBLK+4, R3 ; 




MOV 


R5, -<SP) ; 




MTPD 


(R3)+ i 




MOV 


R4, -(SP) ; 




MTPD 


(R3) > 




J\-\P 


EMTXIT i 



I 

€ 

i 
t 

4 

t 
i 

t 
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R'iVMAP — hap virtual «Mi dress to physical region 



2 

n 

4 



7 








S 








9 








10 








IJ. 








.1.2 








13 


000172 


004767 


001534 


14 


000176 


016705 


0000060 


15 


000202 


001016 




16 








17 








18 








19 


000204 


005002 




20 


000206 


005062 


0000000 


21 


000212 


005062 


OOOOOOG 


22 


000216 


062702 


000002 


23 


000222 


020227 


000016 


24 


000226 


101767 




25 


000230 


004767 


OOOOOOG 


26 


000234 


000167 


OOOOOOG 


27 








28 








29 








30 


000240 


016702 


000002G 


31 


000244 


020227 


000007 


32 


000250 


1 1 404 




33 


000252 


012700 


177767 


34 


000256 


000167 


OOOOOOG 


35 


000262 


006302 




36 


000264 


016704 


000004G 


37 








38 








39 








40 








41 








42 








43 


000270 


010500 




44 


000272 


001450 




45 


000274 


020027 


000200 


46 


000300 


101402 




47 


000302 


012700 


000200 


48 


000306 


010462 


OOOOOOG 


49 


000312 


010462 


OOOOOOG 


50 


000316 


010462 


OOOOOOG 


51 


000322 


060004 




52 


000324 


160005 




53 


000326 


005300 




54 


000330 


000300 




55 


000332 


042700 


100377 


56 


000336 


052700 


000002 


57 


000342 


105767 


0000 lOG 



. SBTTL RTVMAP — Map virtual address to physical region 

"fhir> EMT is used to map a virtual region of memory to a specified 
phijB j (::al r eg ion. 



i 
f 
f 



. BYTE 
. WORD 
. WORD 
. WORD 
. BYTE 
. BYTE 

RTVMAP: CALL 
MOV 
BNE 



17, 140 

Base PAR # <0-7) 

Physical base (64-byte block #) 

Region length <# 64~byte blocks) 

Access control (0"->read only, l==>read/iijri te) 

Cache control <0==>enable caching, l==>bypa5S cache) 



PRVMEM 
EMTBLK+6, R5 
10* 



Can we access physical memory? 

GET SIZE OF REGION 

BR IF MAPPING NEW REGION 



Reset all mapping for job 



11*: 



CLR 


R2 


CLR 


RPAR(R2) 


Ci,R 


RPDR<R2) 


ADD 


#2, R2 


CMP 


R2, #14. 


BLOS 


11* 


CALL 


SETMAP 


JMP 


EMTXIT 



; CLEAR PAR 
; AND PDR 

DONE ALL? 

BR IF MORE TO DO 

RESET MAPPING FOR JOB 

FINISHED 



Map new virtual address to physical region 



10*: MOV EMTBLK+2, R2 

CMP R2, #7 

.BLOS 1* 

MOV #-11, RO 

JMP SETERR 

1*: ASL R2 

MOV EMTBLK+4, R4 



GET PAR # 

MUST BE IN RANGE 0-7 

BR IF OK 

ABORT IF TOO LARGE 

CONVERT TO WORD TABLE INDEX 
GET PHYSICAL ADDRESS BASE 



Set up mapping for each FAR that is affected by this request. 

r;;' ■-- 2-s-PAR # 

R4 := Physical address base 

R 5 :~ £j i z e of region being mapped 



*: 



3*: 



MOV 

BEQ 

CMP 

BLOS 

MOV 

MOV 

MOV 

MOV 

ADD 

SUB 

DEC 

SWAB 

SIC 

BIS 

TSTB 



R5, RO 

5* 

RO, #200 

3* 

#200, RO 

R4, RPAR<R2) 

R4, UPAR0<R2) 

R4, CUPAR0<R2) 

RO, R4 

RO, R5 

RO 

RO 

#-C<77400>, RO 

#2, RO 

EMTBLK+iO 



GET # 64~BYTE BLOCKS LEFT TO MAP 

BR IF FINISHED 

EACH PAR CAN ONLY MAP 200 BLOCKS 

BR IF OK 

MAP 200 BLOCKS THROUGH THIS PAR 

SET PAR BASE ADDRESS 

LOAD HARDWARE MAP REGISTER 

SAVE MAPPING INFO IN CONTEXT BLOCK 

ADVANCE PAR BASE ADDRESS 

DECREASE # BLOCKS REMAINING TO BE MAPPED 

PDR VALUE IS ACTUAL- 1 

POSITION SIZE FOR PLF FIELD IN PDR 

CLEAR ALL BUT PLF FIELD IN PDR VALUE 

SET READ-ENABLE FLAG FOR PDR 

IS WRITE ACCESS ALLOWED? 
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FrrVMAP — Hap virtual 



Real-Time MACRO V05. 04 Monday 
address to physical region 
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58 


000346 


00 1 40^' 




59 


000350 


0S2700 


000004 


60 


000354 


.1.05767 


0000110 


61 


000360 


001402 




62 


000362 


052700 


100000 


63 


000366 


010062 


0000000 


64 


000372 


010062 


0000000 


65 


000376 


010062 


0000000 


66 


000402 


062702 


000002 


67 


000406 


020227 


000016 


68 


000412 


1 1 726 




69 








70 








71 








72 


000414 


000167 


OOOOOOG 





BEO 


4* 




BIS 


#4, RO 


4f 


>: TSTB 


EMTBLK+11 




BEQ 


6* 




BIS 


#100000, RO 


6i 


MOV 


RO, RPDR<R2) 




MOV 


RO, UPDR0(R2) 




MOV 


RO, CUPDR0(R2) 




ADD 


#2, R2 




CMP 


R2, #2«7 




BLOS 


2* 




F i n :i. shed 




5* 


: JMP 


EMTXIT 



BR IF NOT 

SET WRITE-ENABLE FLAG FOR PDR 

BYPASS CACHE? 

BR IF NOT 

SET CACHE-BYPASS FLAG 

SET THE PDR VALUE 

LOAD HARDWARE MAP REGISTER 

SAVE MAPPING INFORMATION IN JOB CONTEXT BLOCK 

ADVANCE PAR INDEX # 

ONLY DO UP TO PAR # 7 

LOOP IF MORE PAR'S TO MAP 



; FINISHED 



TSRTX •• 
RTF RE 2 



Non-re 
• Lock 
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job m /nemory without repositioning 



3 
A 
5 
6 

7 

a 

9 
10 
11 
12 
13 
14 
15 
16 



. SBTTL RTFREZ - — Lock job in memory without repositioning 
j Thc3 f?TFREZ eirtt locked a job in memory without repositioning it. 



000420 

000426 
000430 
000432 
000440 



032767 0000000 OOOOOOG RTFREZ: BIT 

00100.1 BNE 

005000 CLR 

052761 OOOOOOG 0000000 20$: BIS 

000167 0000000 JMP 



#P0*L0K, PRIVCO ; Do me have privilege to do this?-' 

20* ; Br if yes 

RO i Return error code 

#*ML0CK>LSW6(R1)J LOCK JOB IN MEMORY 

EMTXIT /FINISHED 



.SBTTL RTUNLK — Unlock job from memory 

i " — — — — — _— ._ ._ _ _____ — _ _ ______ — __ . 

i The RTUNLK emt unlockes a job from memory. 



000444 
000452 



042761 OOOOOOG OOOOOOG RTUNLK: BIC 
000167 0000000 JMP 



#$MLOCK. LSW6<R1}; UNLOCK FROM MEMORY 
EMTXIT i FINISHED 



TSRTX -• 
RTPEEK - 

.1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 

45 
46 
47 
48 
49 



Non-res i d erit Rpal-Time 

■■ P Bsk a t I / fj B g e 



000456 004767 001250 
000462 017767 0000020 
000470 00042.1 
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. SBTTL RTPEEK — Pet'k at I/O page 

RTPEEK emt is used to access a single ujord in the I/O page. 

Inputs: 
Argl = Address of cell in I/O page to be accessed. 

Outputs: 
Contents of cell are returned to user in RO. 

RTPEEK: CALL PRVMEM i Can me access physical memory? 

OOOOOOG MOV eEMTBLK+2, URO > PEEK AT I/O PAGE 

BR RTXIT 

, SBTTL RTPOKE -" Poke into I/O page 

RTPOKE emt is used to store a word into a cell in the I/O page. 

I n p u t s : 
Artjl = Address of cell in I/O page to be accessed. 
Arg2 ~ Data value to be stored into I/O page cell. 



000472 004767 001234 

000476 016777 000004G 000002G 

000504 000413 



RTPOKE: CALL 
MOV 
BR 



PRVMEM ; Can we access physical memory? 

EMrBLK+4,@EMTBLK+2; STORE INTO CELL IN I/O PAGE 

RTXIT 



.SBTTL RTBIS — Bit set into I/O page 

RTBIS emt is used to do a bit set into a word in the I/O page. 

I n p u t B ; 
Argl = Address of ceil in I/O page to be accessed. 
Arf,)2 ~ Data value to be ORed into I/O cell. 



000506 004767 
000512 056777 
000520 000405 



001220 
000004G 



RTBIS: CALL 
000002G BIS 

BR 



PRVMEM ; Can we access physical memory? 

EMTBLK+4, @EMTBLK+2i DO BIS INTO I/O PAGE CELL 

RTXIT 



. SBTTL RTBIC 



.Bit clear into I/O page 



RTBIC emt is used to do a bit clear into a word in the I/O page. 



I n p u t B : 
Argl = Address of cell in I/O page to be accessed. 
Arg2 ■-• Data value to be used as a bit clear mask. 



004767 
000526 046777 
000534 000167 



001204 

000004G 

OOOOOOG 



RTBIC: CALL 
000002G BIC 

RTXIT: JMP 



PRVMEM j Can we access physical memory? 

EMTBLK+4, @EMTBLK+2i DO BIC INTO I/O PAGE CELL 
EMTXIT i FINISHED WITH EMT 
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RTIOMP — Map par7 to J/0 page 

. SDTTL RTIOMP — Map par7 to I/O page 



2 






3 






4 






5 






6 


000540 


004767 


7 


000544 


052761 


S 


000552 


004767 


9 


000556 


000766 


10 






i;i 






12 






13 






14 






15 






16 


000560 


042761 


17 


000566 


0007 71 



.: RTIOMP is called to map the upper SKb (par7) of the job's virtual 
> address space to the I/O page. 

001166 RTIOMP: CALL PRVMEM ; Can we access I/O page? 

OOOOOOG OOOOOOG BIS #*IOMAP, LSW6(R1 ) ; SET FLAG SAYIIMS WE ARE ACCESSING I/O PAGE 

OOOOOOG RTMAP: CALL SETMAP ; RELOAD MAPPING REGISTERS FOR JOB 

BR RTXIT 



SBTTL RTRMMP — Map par7 to simulated Rmon 



RTRMMP emt is used to map the par7 region of the user's job back to 
the simulated Rmon. 

OOOOOOG OOOOOOG RTRMMP: BIC #*IOMAP.. LSW6< Rl ) i SAY WE ARE NO LONGER MAPPED TO I/O PAGE 

BR RTMAP ; RELOAD MAPPING REGISTERS FOR JOB 



TSRTX — 


• Non-re 


5 i d e n t R 


!^al"Time 


. Sf^ND - 

1 
2 
3 


— Suspei 


i d J D b ' & 


e X e c u t i 








4 








5 








6 


000570 


005361 


0000000 


7 


000574 


002023 




8 








9 


000576 


105767 


OOOOOOG 


10 


000602 


00 1 020 




11 








12 








13 








14 


000604 






15 


000612 


005761 


ooooooe 


16 


000616 


002007 




17 


000620 


012700 


0000000 


IS 


000624 


004767 


OOOOOOG 


19 


000630 


004767 


0000000 


20 


000634 


000763 




21 








22 








23 








24 


000636 






25 


000644 


000167 


OOOOOOG 


26 








27 








28 








29 








30 








31 








32 


000650 


005261 


OOOOOOG 


33 


000654 


000167 


OOOOOOG 
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. SBTTL . SPND 



Susvperid job's execution 



The .SPND emt is uf^ed to suspend the job's execution until a . RSUM 
is d o n e . 

RTSPND: DEC LSPND(Rl) J DEC SUSPENSION COUNTER FOR JOB 
J3GE 1* ; BR IF WE SHOULD NOT SUSPEND JOB 

; Don't suspend job if runninq in a completion routine. 

TSTB CURCP ;ARE WE RUNNING IN A COMPLETION ROUTINE NOW? 

BNE 1* iBR IF YES 

Suspend execution of the job until a .RSUM emt is done. 



3$: 



DISABL 




TST 


LSPND(Rl) 


BGE 


4* 


MOV 


#S*SPND.. RO 


CALL 


QHOSPN 


CALL 


CHKABT 


BR 


3* 



J i DISABLE INTERRUPTS 

; ; HAS RESUME BEEN ISSUED? 

; ; BR IF WE SHOULD RESTART JOB 

; ; JOB SUSPENDED STATE 

; ; SUSPEND THE JOB ** ENABLES INTERRUPTS «* 

SEE IF WE WERE ABORTED WHILE ASLEEP 

ATTEMPT TO RESUME THE JOB 



Finished doing the . spnd ■ — resume the job's execution. 



4*: 
lUi: 



ENABL 
JMP 



> i i ENABLE INTERRUPTS 
; FINISHED WITH . SPND 



EMTXIT 
.SBTTL .RSUM — Resume job's execution 



The RSUM emt is used to resume execution of a job that is asleep 
because of doing a . SPND. 



RTRSUM: INC 
JMP 



LSPND<R1.) 
EMTXIT 



; INC JOB'S . SPND COUNTER 
i THAT'S ALL WE HAVE TO DO 



I 
I 
I 
I 
( 
I 
i 
I 
I 
i 

i 

€ 
€ 

i 
i 
i 
i 

€ 
i 
i 
I 
C 
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000660 004767 OOOOOOG 



.1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 000660 
IS 
19 
20 
21 
22 
23 
24 

25 000664 

26 000666 

27 000672 

28 000676 

29 000702 

30 000706 

31 000710 

32 000712 

33 000720 

34 000726 

35 000734 

36 000736 

37 000744 

38 000752 

39 000756 

40 000760 

41 000764 

42 000766 

43 000772 

44 000776 

45 001002 

46 001006 
47 

48 

49 

50 001014 

51 

52 

53 

54 001020 



. SBTTL RTCMPL — Schedule a completion routine 
The RTCMPL EMT is used to schedule a completion routine for the job. 
The Form of the EMT is 

EMT 375 

With RO pointing to the following EMT argument block: 

. BYTE 21, 140 

. WORD c omp letion„ rout ine..ad dress 

. WORD completiDn..routine.„priority 

. WORD value__to_paf-& in...Rl 

. WORD 

RTCMPL: 

Get a completion routine queue element 



CALL GETQ 
Set up the queue element 



Get a free completion queue element 



010104 
116701 
110164 
012703 
012364 
012302 
001012 
112764 
116164 
112764 
000420 
1 1 2764 
1 1 2764 
116700 
060002 
020227 
101402 
012702 
1 1 0264 
012364 
005064 
013764 



OOOOOOG 
OOOOOOG 
000002G 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



2$: 



3$: 
4*: 



MOV 

MOVE 

MOVE 

MOV 

MOV 

MOV 

BNE 

MOVE 

MOVE 

MOVE 

BR 

MOVE 

MOVE 

MOVE 

ADD 

CMP 

BLOS 

MOV 

MOVE 

MOV 

CLR 

MOV 



Rl, R4 

CORUSR, Rl 

Rl, CQ*J0B<R4) 

#EMTBLK+2, R3 

(R3)+, C0*RTN<R4) 

(R3)+, R2 

2* 



; Carry queue element pointer in R4 

; Get job index number 

i Set job number in queue element 

; Get pointer to block with EMT arguments 

; Set address of completion routine 

i Get execution priority value 

i Br if priority not = 

#S$TWF1M. CQ*RNS<R4)i Set non-real-time execution state 

LBSPRI (Rl )i CQ*PRI(R4); Set execution priority 

#CP*STD, CQ*CP<R4)i Set standard compl rtn class priority 

4* 

#CP*RT» CQ$CP(R4); Set real-time completion class priority 

#S*RT. CG*RNS<R4); Set real-time execution state 

VPRIHI^RO ; Get base real-time priority 

R0» R2 i Add base real-time priority 

R2, #MAXPRI ;Make sure we don't overflow 

3* ; Br if ok 

#MAXPRI>R2 i Truncate to max allowed 

R2> CQ*PRI <R4) ; Set execution priority value 

<R3)+, CQ*R1 <R4) ; Set value to pass to completion routine in Rl 

CQ*R0<R4) ;Pas5 in RO 

@#KPAR5, CQ*PA5<R4); Save current kernel PAR 5 mapping 



004767 OOOOOOG 



000167 OOOOOOG 



Queue the completion routine request 

CALL QCOMPL ; Queue the completion routine 

F i n j li h e d 

JMP EMTXIT ; Finished with EMT 



TSRTX - 
RTEXJB 



Non-resident Real-Time 
- Gain exclusive use of 
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Eii&tem 



1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

21 

22 
23 
24 
25 
26 
27 
28 
29 



001024 004767 000662 



001030 110167 OOOOOOG 



001034 000167 OOOOOOG 



001040 105067 0000000 



001044 105267 OOOOOOG 



001050 000167 OOOOOOG 



SBTTL RTEXJB 



Gain exclusive use of system 



The RTEXJB EMT is used to obtain exclusive use of the system 

by a real-time job. All other jobs are suspended until the RTALJB 

EMT is used to release exclusive access. 

RTEXJB: CALL PRVRT t Do me have Real-time privilege? 

Set flag that says this job has exclusive access to the system 

MOVE Rl^EXCJOB ; SAY THIS JOB HAS EXCLUSIVE ACCESS 

Finished 

JMP EMTXIT ;EXIT FROM EMT 

SBTTL RTALJB — Release exclusive access claim to system 

The RTALJB emt is used to release exclusive access to the system. 

RTALJB: CLRB EXCJOB ; SAY WE NO LONGER HAVE EXCLUSIVE ACCESS 

Set flag to cause execution scheduler to be called 

INCB DOSCHD ; CALL THE SCHEDULER LATER 

Fini shed 

JMP EMTXIT iEXIT FROM EMT 



TSRTX — 


- Non-re 


s i. d e n t U 


eai-Time MACRO V 


RTSPL - 
1 


— Set p 


roc essor 


priority It^vel 


2 

■■3 

4 








5 








6 








7 








8 








9 


001054 


004767 


000632 


10 


001060 


016702 


0000020 


11 


001064 


042702 


1 77770 


12 


001070 


072227 


000005 


13 


001074 


042767 


000340 OOOOOOG 


14 


001102 


050267 


0000000 


15 


001106 


000167 


OOOOOOG 
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SBTTL RTSPL 



Bet processor priority level 



The RTSPL EMT is used to set the processor priority level that 
will be used while runninq in user mode. 



level <0 to 7). 

i Do we have real-time privilege? 

;GET REQUESTED PROCESSOR PRIORITY LEVEL 

; CLEAR ALL BUT PRIORITY LEVEL FIELD 

; POSITION TO PRIORITY FIELD IN PS 

; CLEAR OLD PRIORITY FIELD IN PS 

i STORE NEW PRIORITY LEVEL INTO PS 

i DO EMT EXIT WHICH WILL LOAD PS 



Inputs: 




Argl -- Processor priority 


PL: CALL 


PRVRT 


MOV 


EMTBLK+2, R2 


BIC 


#177770> R2 


ASH 


#5, R2 


BIC 


#340, EMTPS 


BIS 


R2, EMTPS 


JMP 


EMTXIT 



TSRTX • 
RTCVEC 
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1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



. SBTTL RTCVEC — Connect completion routine to interrupt vector 

RTCVEC emt is used to connect an interrupt vector to a user completion 
routine. 

Inputs: 
Argl = Address of interrupt vector. 
Arg2 = Address of completion routine. 
Arg3 ~ Priority of completion routine (0 to 7). 

Entry point for directly connected interrupt service routine 



001112 004767 000574 

001116 032761 OOOOOOG OOOOOOG 

001124 001004 

001126 012700 000003 

001132 000167 OOOOOOG 

00 1136 012705 OOOOOOG 

001142 000401 



RTDVEC: CALL 
BIT 
BME 
MOV 

1*: MOV 
BR 



PRVRT ; Do we have real-time privilege? 

#*MLOCK, LSW6(Rl)i IS JOB LOCKED IN MEMORY? 

1* ; BR IF YES 

#3, RO ; RETURN EMT ERROR CODE 3 IF NOT 

SETERR 

#VF$DIR, R5 i SET DIRECTLY-CONNECTED INTERRUPT FLAO 

RTXVEC ■> ENTER COMMON CODE 



23 001144 005005 

24 

25 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001146 016700 000002G 

001152 006200 

001154 010003 

001156 004767 000570 

001162 103407 

001164 126201 OOOOOOG 

001170 001414 

001172 012700 000002 

001176 000167 OOOOOOG 



001202 005000 
001204 004767 



000542 



001210 10300'-/ 

001212 012700 000001 

001216 000167 OOOOOOG 



Entry point for completion routine type service routine 
RTCVEC: CLR R5 ; CLEAR DIRECTLY-CONNECTED INTERRUPT FLA© 



GET ADDRESS OF VECTOR WE ARE CONNECT INS TO 

DROP LOW-ORDER BIT 

SAVE VECTOR VALUE 

SEE IF THERE IS A VECTOR CONTROL BLOCK ALREADY 

BR IF NO CONTROL BLOCK FOR THIS VECTOR 

IS OUR JOB THE ONE THAT OWNS THE VECTOR? 

BR IF YES 

ERROR CODE 2 MEANS SOMEONE ELSE OWNS VECTOR 



Get a vector control block and set it up. 

1*: CLR RO i GET A FREE VECTOR CONTROL BLOCK 

j BR IF GOT ONE 

i NO FREE VECTOR CONTROL BLOCKS 



Found a free vector control block (Address is in R2). 
Set it up. 



i See 


if int 


,errupt vector is 


RTXVEC: 


MOV 


EMTBLK+2, RO 




ASR 


RO 




MOV 


RO, R3 




CALL 


SRCVEC 




BCS 


1* 




CMPB 


VC*J0B(R2),R1 




BEQ 


2* 




MOV 


#2, RO 




JMP 


SETERR 


i Vector is 


free. Get a vec 



CLR 


RO 


CALL 


SRCVEC 


BCC 


2* 


MOV 


#1, RO 


JMP 


SETERR 



001226 



110162 OOOOOOG 
1 1 0362 OOOOOOG 



?$: 



001232 110562 OOOOOOG 

001236 016762 000004G OOOOOOG 

001244 016700 000006G 

001250 042700 177770 

001254 110062 OOOOOOG 



MOVB 

MOVB 

MOVB 

MOV 

MOV 

BIC 

MOVB 



Rl, VC*J0B<R2} 
R3, VC*VEC<R2) 
R5, VC«FLG<R2) 



SET JOB NUMBER 

SET ADDRESS OF VECTOR 

SET CONTROL FLAGS <VF*xxx> 



EMTBLK+4, VC$RTN<R2)iSET ADDRESS OF COMPLETION ROUTINE 



EMTBLK+6, RO 

#-C7, RO 

RO, VC*PRI<R2) 



GET COMPLETION ROUTINE PRIORITY 

FORCE TO RANGE 0-7 

SAVE PRIORITY IN VECTOR CONTROL BLOCK 



"lake vector point to vector control block. 



€ 
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58 001260 006303 

59 001262 010223 

60 001264 012713 000340 
61 

62 
63 
64 001270 000167 0000000 



ASL 


R3 


MOV 


R2, <R3) + 


MOV 


#340, (R3) 


Finished 




JhP 


EMTXIT 



i OET ADDRESS OF VECTOR 

; SET VECTOR PC — SEND INT TO INT CONTROL BLOCK 

} SET VECTOR PS 



TSRTX ■ 
RTRVEC 
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Release intarriipt vector 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001332 010346 



001334 
001342 



001344 
001346 
001352 
001354 
001356 
001362 
001364 
001370 
001374 
001376 



001 
001 
001 
001 
001 
001 
001 



402 
406 
410 
414 
416 
422 
424 



1 32762 
001031 



00S003 
156203 
006303 
010300 
105767 
OOIOOS 
012720 
012710 
000414 
012720 



072327 
010346 
042716 
006303 
042703 
052603 
010310 



001274 004767 000412 

001300 016700 0000020 

001304 006200 

001306 004767 000440 

001312 103405 

001314 120162 0000000 

001320 001002 

001322 004767 000004 

001326 000167 0000000 



. SBTTL RTRVEC — Release interrupt vector 

RTRVEC emt is used to release an interrupt vector connection. 

Inputs: 
Ar<!l ~- Address of vector. 



Do me have real-time privilegeT' 

GET ADDRESS OF VECTOR 

DROP LOW-ORDER BIT 

SEARCH FOR VECTOR CONTROL BLOCK 

BR IF NONE FOR THIS VECTOR 

DO WE OWN THE VECTOR? 

BR IF NOT 

RELEASE THE VECTOR 



RELVEC is called to release a user's link with an interrupt vector. 
The vector is set to point to the unexpected interrupt routine and 
the vector control block is freed. 

Inputs: 
R2 = Address of vector control block. 



RTRVEC: 


CALL 


PRVRT 




MOV 


E^1TBLK■^2, RO 




ASR 


RO 




CALL 


SRCVEC 




BCS 


1* 




CMPB 


Rl. VC*J0B<R2) 




BNE 


1* 




CALL 


RELVEC 


1$; 


JMP 


EMTXIT 



RELVEC : MOV 



R3, -(SP) 



OOOOOOG OOOOOOG 



0000000 



OOOOOOG 

OOOOOOG 
000-340 

OOOOOOG 



177776 
1 77760 
177437 



If .DEVICE list already specified a reset address for this vector* 
don't make it point to normal unexpec ted-interrupt location. 

BITB #VF*DET, VC*FLG(R2.>i Did .DEVICE disconnect the interrupt? 
BNE 2* ; Br if yes 

Set interrupt vector to point to unexpected interrupt routine. 

; GET ADDRESS OF INT VECTOR FROM VECTOR CONTROL 

; CONVERT TO REAL ADDRESS 

SHOULD WE CRASH OR IGNORE UNEXPECTED INTS? 

BR IF WE SHOULD CRASH 

SET PC TO ROUTINE TO IGNORE INTS 

SET PS PR 10=7 FOR INTERRUPT 



1*: 



CLR 


R3 


BISB 


VCfVEC(R2).. R3 


ABL 


R3 


MOV 


R3, RO 


TSTB 


VUXIFL 


BNE 


1* 


MOV 


#UEXRTN. (R0) + 


MOV 


#340, <R0) 


BR 


2* 


MOV 


#UEXINT, (RO)-f- 



; SET VECTOR TO GO TO UNEXPECTED INT ROUTINE 



Set PS in interrupt vector to encode interrupt address. 



ASH #-2, R3 

MOV R3, -<SP) 

BIC #-C17, (SP) 

ASL R3 

BIC #--C340, R3 

BIS (SP)+,R3 

MOV R3, (RO) 

Fref- the vector control bicck 



DROP LOW-ORDER 2 BITS OF VECTOR ADDRESS 

CLEAR ALL BUT N~Z~V-C FIELDS 
SHIFT OVER ADDRESS TO AVOID T FLAG 
CLEAR ALL BUT PRIORITY FIELD 
COMBINE N-Z-V-C WITH PRIO FIELD 
STORE INTO VECTOR PS WORD 



TSRTX — Non-resident Real-Time MACRO V05. 04 Monday 21-Dec-87 07:44 Page 13~1 
RTRVEC -■ ■-• Release intoTTupt vector 



58 

59 001426 105062 0000000 

60 001432 105062 0000000 
61 

62 
63 

64 001436 012603 

65 001440 000207 



2*: CLRB 
CLRB 

i F i ?i i s h e d 

MOV 
RETURN 



i 



VC*J0B(R2) 
VC*VEC<R2) 



(SP)+i R3 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 

25 
26 



. SDTTL RTDEV 



. DL-VICE Emt 



001442 004767 000244 



001446 105767 0000000 
001452 001004 



001454 016767 0000020 0000000 
001462 000407 



001464 016746 OOOOOOG 
001470 106677 0000020 
001474 016767 0000020 OOOOOOG 



001502 000167 0000000 



.; The .DEVICE emt is used to declare a list of addresses and values to 
r be stored uihen a job exits. 

RTDEV: CALL PRVRT .= Do we have real-time privilege? 

i Determine if this is a simple or linked type list 



1*: TSTB EMTBLK 
BNE 2* 

Simple (non-linked) list 



i SIMPLE OR LINKED LIST? 
; BR IF LINKED LIST 



MOV 
BR 

L i n k f? d list 



EMTBLK+2, DEVLS ; SET ADDRESS OF . DEVICE LIST 
9* • .t FINISHED 



?*: MOV DEVLL, -(SP> 
MTPD @EMTBLK+2 
MOV EMTBLK+2, DEVLL 



i Fin i G h e d 
9^: vJMP 



PUSH ADDRESS OF CURRENT LIST HEAD 
STORE AS FORWARD LINK FROM NEW LIST 
SAVE ADDRESS OF NEW LIST 



EMT.XIT 



€ 
€ 



TSRTX - 


- Non-resident F 


ea.t-Time 


RTSTOP ■ 

i 
2 
3 


-- Real- 


-time c 1 i 


r3 n u p at 








4 








5 








6 








7 








8 








9 








10 








U 








12 








13 


001506 


010246 




14 








15 








16 








17 








18 


001510 


016702 


0000000 


19 


001514 


001415 




20 


001516 


005067 


0000000 


21 


001522 


106522 




22 


001524 


012667 


ooooooe 


23 


001530 


106522 




24 


001532 


012600 




23 


001534 


001765 




26 


001536 


106522 




27 


001540 


012610 




28 


001542 


004767 


000112 


29 


001546 


000770 




30 








31 


001550 


016702 


OOOOOOG 


32 


001554 


001412 




33 


001556 


005067 


0000000 


34 


001562 


106522 




35 


001564 


012600 




36 


001566 


001405 




37 


001570 


106522 




38 


001572 


012610 




39 


001574 


004767 


000060 


40 


001600 


000770 




41 








42 








43 








44 


001602 


012702 


0000000 


45 


001606 


020227 


OOOOOOG 


46 


001612 


103010 




47 


001614 


120162 


OOOOOOG 


48 


001620 


001002 




49 


001622 


004767 


177504 


50 


001626 


062702 


OOOOOOG 


51 


001632 


000765 




52 








53 








54 








55 


001634 


120167 


OOOOOOG 


56 


001640 


001005 




57 


001642 


105767 


OOOOOOG 
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. SBTTL RTSTOP — Real-time cleanup at end of job execution 

RTSTOP is called u/hen a job exits for any reason. 
It does any necessary real-time cleanup for the job. 
This consists of the following things: 

1. Process any specified .DEVICE list. 

2. Disconnect any interrupt vectors attached to the job. 

3. Release exclusive access of system if job has gotten it. 

I n p 11 1 s : 
Rl = Current job number 

RTSTOP: MOV R2, -<SP) 

If job did a .DEVICE emt, process the device reset list. 

Process linked type lists first 
1$: MOV DEVLL.R2 ; IS THERE A LINKED TYPE LIST TO PROCESS? 

BR IF NOT 

CLEAR IN CASE WE TRAP 

GET ADDRESS OF FORWARD LINK FROM LIST HEAD 

SAVE THIS ADDRESS AS NEW HEAD OF LINKED LIST 
2$: MFPD (R2)+ ; GET ADDRESS TO STORE INTO 

BR IF REACHED END OF LIST 

GET VALUE TO STORE INTO CELL 

DO THE STORE 

See if use just released an interrupt conctn. 

GO PROCESS NEXT ITEM IN LIST 
Now process n on -linked type lists 
3*: MOV DEVLS, R2 " ; ANY NON-LINKED .DEVICE LIST? 

BR IF NOT 

CLEAR IN CASE WE TRAP 
4$: MFPD (R2)+ i GET ADDRESS TO STORE INTO 

BR IF REACHED END OF LIST 

GET VALUE TO STORE 

DO THE STORE 

See if we released an interrupt connection 

GO PROCESS NEXT ITEM IN LIST 

Disconnect all interrupt vectors associated with this job 

POINT TO 1ST VECTOR CONTROL BLOCK 

CHECKED ALL VECTOR CONTROL BLOCKS? 

BR IF YES 

IS THIS VCB IN USE BY THIS JOB? 

BR IF NOT 

RELEASE THE VECTOR AND THE VCB 

POINT TO NEXT VCB 

If job has exclusive access to the system* release it 

4*: CMPB R1,EXCJ0B ; DOES THIS JOB HAVE EXCLUSIVE ACCESS TO SYS? 

; BR IF NOT 
.: IS THIS JOB DOING A CHAIN NOW? 



MOV 


DEVLL. R2 


BEQ 


3* 


CLR 


DEVLL 


MFPD 


(R2) + 


MOV 


(SP)+, DEVLl 


MFPD 


(R2) + 


MOV 


<SP)+, RO 


BEQ 


1* 


MFPD 


<R2) + 


MOV 


<SP)+, (RO) 


CALL 


CKVREL 


BR 


2* 


r c e 5 5 


n on -linked 1 


MOV 


DEVLS, R2 


BEQ 


INTSTP 


CLR 


DEVLS 


MFPD 


(R2) + 


MOV 


(SP)-H, RO 


BEQ 


INTSTP 


MFPD 


( R2 ) + 


MOV 


(SP)+, (RO) 


CALL 


CKVREL 


BR 


4* 



INTSTP; 


MOV 


#VCBBAS, R2 


1$: 


CMP 


R2, #VCBEND 




BHIS 


4* 




CMPB 


Rl, VC*J0B(R2) 




BNE 


2* 




CALL 


RELVEC 


5f : 


ADD 


#VC«*SZ, R2 




BR 


1* 



CMPB 


R1,EXCJ0B 


BNE 


3* 


TSTB 


CINFLG 
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58 001646 001002 

59 001650 105067 0000000 
60 

61 
62 

63 001654 012602 

64 001656 000207 



3$: 



BNE 


3* 


CLRB 


EXCJOB 


F" i n i I'i h e ri 




MOV 


( SP ) +, R2 


RETURN 





i IF YES THEN RETAIN EXCLUSIVE ACCESS 
; RELEASE EXCLUSIVE ACCESS 



TSRTX — 
RTSTOP - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

la 

19 

20 
21 
22 
23 
24 
25 
26 
27 
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— Real-time c'lfcanup at end of job execution 



001660 010246 



001662 
001666 
001670 
001672 
001676 



020027 
103007 
006200 
004767 
103403 



000500 



000054 



See if the cell being stored into by the .DEVICE list is an interrupt 
vector. If SO/ mark the vector control block so that ute don't alter 
the interrupt location later. 

.1 n p u t G : 
RO = Address of cell being modified by .DEVICE list processing. 

CKVREL: MOV R2. -(SP) 

See if location being modified is an interrupt vector 

j Could this be an interrupt vector? 

* Br i f not 

; Qet vector address / 2 

; Try to find vector control block 

; Br if no vector attachment 

Set flag in vector control block which prevents us from connecting 
this vector to une.xpec ted-interrupt location later. 



CMP 


RO, #500 


BHIS 


9* 


ASR 


RO 


CALL 


SRCVEC 


BCS 


9* 



001700 152762 0000000 0000000 



001706 012602 
001710 000207 



9$: 



SI SB 

Finished 

MOV 
RETURN 



#VF$DET, VC*FLS<R2.> ; Say vector has been disconnected 



(SP)+, R2 
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** Subroutines ** 



1 
2 
3 
4 
5 
6 



. SBTTL #* Subroutines ^J* 

. SBTTL PRVRT — Determine if job has real-time privilege 

Dett'rmine if the job has real-time privilege. 
If not. error code O i& returned for the EMT. 



7 001712 032767 OOOOOOG OOOOOOG PRVRT: 
S 001720 001003 
9 001722 005000 

10 001724 000167 OOOOOOG 

11 001730 000207 9$: 
12 
13 
14 
15 
16 
17 

18 001732 032767 OOOOOOG OOOOOOG PRVMEM: BIT 

19 001740 001003 BNE 

20 001742 005000 CLR 

21 001744 000167 OOOOOOG JMP 



i Does job have real-time privilege? 

i Br if yes 

; Return error code 



.SBTTL PRVMEM — Check for access authorization to phys memory 



B.TT 


#PO*RT,PRIVCO 


BNE 


9* 


CLR 


RO 


JMP 


SETERR 


RETURN 





Determine if the job can access physical memory. 
If notj error code is returned for the EMT. 



#PO*MEM, PRIVCO .: Can we access physical memory? 

9* ; Br if yes 

RO ; Return error code 

SETERR 



22 001750 000207 



9*: 



RETURN 



TSRTX — Won— resident Real-Time 
SRCVEC — Search for vector cont 



MACRO V05. 04 Monday 21™Dec-97 07:44 Pbqb le 
r o i block 



1 








2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


001752 


012702 


0000000 


14 


001756 


020227 


0000000 


15 


001762 


103006 




16 


001764 


1 20062 


OOOOOOG 


17 


001770 


001405 




18 


001772 


062702 


OOOOOOQ 


19 


001776 


000767 




20 


002000 


000261 




21 


002002 


000401 




22 


002004 


000241 




23 


002006 


000207 




24 




000001 




Errors c 


letected 








. SBTTL SRCVEC 



Search for vector control block 



SRCVEC is called to search for a vector control block associated 
with a particular interrupt vector. 

I n p u t s : 
RO = Address of vector / 2 

Outputs: 
C--flag set on return if no vector control block found for vector. 
R2 = Address of vector control block if one found. 



SRCVEC: MOV 
1$: 



4*: 

2$: 
3*: 



■«■## Assembler statistics 



Work file reads 
Work file writes 
Si ze of work file 
Size of core pool 
Operating system 







153 Words ( 1 Pages) 

17920 Words ( 70>ages) 

RT-1 1 



Elapsed time: 00:00:14.47 

DK: TSRTX, LP: TSRTX=DK: TSRTX. MAC/C/N: 3YM 



MOV 


ttVCBBAS, R2 


CMP 


R2, #VCBEND 


BHIS 


4* 


CMPB 


RO, VC*VEC<R2) 


BEQ 


2S 


ADD 


#VC**S2,R2 


BR 


1* 


SEC 




BR 


3* 


CLC 




RETURN 




. END 





GET ADDRESS OF BASE OF CONTROL BLOCK AREA 

CHECKED ALL BLOCKS? 

BR IF YES 

IS THIS CONTROL BLOCK FOR THE VECTOR? 

BR IF YES 

POINT TO NEXT VECTOR CONTROL BLOCK 

SIGNAL FAILURE ON RETURN 

SIGNAL SUCCESS ON RETURN 



€ 
i 

i 

i 

€ 

I 

i 
i 
I 
i 
i 
i 
i 
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Cross reference table (CREF V05. 04) 



$:(OMAP 


1-35 


7-7 


7-16 




















«MLOCK 


1-38 


5-0 


5-15 


12-14 


















BADEMT 


1-34 


2-25 






















CHKABT 


1-41 


3-19 






















CINFLQ 


1-43 


15-57 






















CKVREL 


15-28 


15-39 


i6-9# 




















CORUSR 


1-48 


9-26 






















CP$RT 


1-46 


9-36 






















CP*STD 


1-46 


9-34 






















C«*CP 


1-46 


9-34* 


9-36* 




















CQ^JOB 


1-36 


9-27 t^ 






















C0*PA5 


1-42 


9-46# 






















CO^PRI 


1-42 


9-33* 


9-43* 




















CQ*RO 


1-36 


9-4 5 1^ 






















CQ*R1 


1-47 


9-44 it 






















CQ*RNS 


1-42 


9-32^* 


9-37* 




















CQ*RTN 


1-36 


9-291* 






















CUPARO 


1-45 


1-47 


4-50* 




















CUPDRO 


1-45 


1-47 


4-65* 




















CURCP 


1-41 


8-9 






















DEVLL 


1-42 


14-20 


14-22* 


15-18 


1 5-20* 


1 5-22* 














DEVLS 


1-42 


14-ll>* 


i5---31 


1 5-33* 


















DOSCHD 


1-43 


10-25ii- 






















EMTBLK 


1-34 


2-21 


3-15 


3-31 


4-14 


4-30 


4-36 


4-57 


4-60 


6-12 


6-24 


6-24* 




6-36 


6-36* 


6-48 


6-48* 


9-28 


11-10 


12-27 


12-51 


12-52 


13-9 


14-10 


14-15 




14-21# 


14-22 






















EMTPS 


1-37 


11-13* 


11-14* 




















EMTXIT 


1-34 
11-15 


3-36 
12-64 


4-26 
13-16 


4-72 
14-26 


5-9 


5-16 


6-49 


8-25 


8-33 


9-54 


10-15 


10-29 


EXCJOB 


1-43 


10-11* 


10-21* 


1 5-55 


15-59* 
















GETQ 


1-48 


9-21 






















INTPRI 


1-37 


8-24 






















INTSTP 


15-32 


15-36 


1 5-44# 




















KPAR5 


1-46 


9-46 






















LBSPRI 


1-38 


9-33 






















LPARBS 


1-34 


3-25 






















LSPND 


1-41 


8-6* 


8-15 


8-32* 


















LSW2 


1-34 
























LSW6 


1-35 


5-8* 


5-15* 


7-7* 


7-16* 


12-14 














MAXPRI 


1-48 


9-40 


9-42 




















MXRTFN 


2-23 


2-50# 






















OVRHC 


1-39 
























PO$LOK 


1-38 


5-l7 






















PO*MEM 


1-40 


17- IS 






















PO*RT 


1-40 


17-7 






















PRIVCO 


1-40 


5-5 


1 7-7 


17-18 


















PRVMEM 


4-13 


6-11 


6-23 


6-35 


6-47 


7-6 


r7-is# 












PRVRT 


10-7 


11-9 


12-13 


13-8 


14-6 


17-7# 














PS 


l-53# 


8-14* 


0-24* 




















QCOMPL 


1-36 


9-^)0 






















QHDSPN 


1-42 


a- IB 






















RELVEC 


13-15 


1 3-26# 


1 5-49 




















RPAR 


1-44 


3-22 


4-20* 


4-48* 


















RPDR 


1-44 


3-20 


4-21* 


4-63* 


















RTALJB 


2-44 


10-21# 






















RTBIC 


2-35 


6-4 7# 























i 
c 
I 
I 

I 

€ 

i 
i 
i 

i 
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i 
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Cross reference table (CREF V0J5. 04) 



RTBIS 


2-34 


6~3ly# 






RTCMPL 


2-48 


9-1 7-11 






RTCVAD 


2-31 


3-1 5# 






RTCVEC 


2-40 


12~23# 






RTDEV 


1-30 


14-6# 






RTDVEC 


2-47 


12-13# 






RTEMT 


1-30 


2-.l7# 






RTEMTV 


2-26 


2-31 # 


2-50 




RTEXJB 


2-43 


10-7# 






RTFREZ 


2-42 


5-m 






RTIOMP 


2-36 


7-6# 






RTLOCK 


1-37 


2-38 






RTMAP 


7-S# 


7- .17 






RTPEEK 


2-32 


6-1 1« 






RTPOKE 


2-33 


6-23# 






RTRMMP 


2-37 


7~16# 






RTRSUM 


1-29 


S-32# 






RTRVEC 


2-41 


13-0# 






RTSPL 


2-45 


11 -9# 






RTSPND 


1-29 


8-6# 






RTSTOP 


1-30 


15-13# 






RTUNLK 


2-39 


5-1 5# 






RTVMAP 


2-46 


4-1 3# 






RTXIT 


6-13 


6-25 


6-37 


6-49# 


RTXVEC 


12-19 


12-27# 






S*RT 


1-48 


9-37 






S*SPND 


1-41 


8-17 






S*TWFN 


1-38 


9-32 






SETERR 


1-34 


4-34 


12-17 


12-35 


SETMAP 


1-35 


4-25 


7-0 




SRCVEC 


12-30 


12-40 


13-11 


16-16 


TSRTX 


1-1 3# 








UEXINT 


1-36 


13-45 






UEXRTN 


1-39 


13-42 






UPARO 


1-45 


4-49* 






UPDRO 


1-45 


4-64 fi^ 






UPMODE 


1-46 


1-46 






URO 


1-37 


6-12«- 






VC**SZ 


1-40 


1 5-50 


18-18 




VC«FLG 


1-44 


12-50^5- 


13-31 


16-22-» 


VC*JOB 


1-35 


12-32 


12-48» 


13-13 


VC*PRI 


1-37 


12-54^^ 






VC*RTN 


1-35 


12-51* 






VC$VEC 


1-35 


12-49*- 


13-37 


13-60* 


VCBBAS 


1-40 


1 5-44 


18-13 




VCBEND 


1-40 


15-45 


18-14 




VF*DET 


1-44 


13-31 


16-22 




VF$DIR 


1-44 


12-18 






VPRIHI 


1-48 


9-38 






VUXIFL 


1-39 


1 3-40 







7-9 



12-43 17-10 17 
18-13# 



13-59«- 15-47 



18-16 
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Cross reference table <CREF VOS. 04) 



DISABL 


l-54# 


8-14 


ENABL 


1-5S# 


8-24 


OCALL 


1-19# 





